home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / dump_s1r / split.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-12-15  |  11.0 KB  |  316 lines
  1. VERSION 5.00
  2. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.1#0"; "COMDLG32.OCX"
  3. Begin VB.Form frmSplit 
  4.    AutoRedraw      =   -1  'True
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    Caption         =   "File Split Example"
  7.    ClientHeight    =   1992
  8.    ClientLeft      =   48
  9.    ClientTop       =   336
  10.    ClientWidth     =   4668
  11.    LinkTopic       =   "Form1"
  12.    LockControls    =   -1  'True
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   1992
  16.    ScaleWidth      =   4668
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   2  'CenterScreen
  19.    Begin VB.Frame nfFileRes 
  20.       Caption         =   "File To Restore"
  21.       Height          =   1005
  22.       Left            =   0
  23.       TabIndex        =   3
  24.       Top             =   990
  25.       Width           =   4665
  26.       Begin VB.PictureBox picRes 
  27.          Appearance      =   0  'Flat
  28.          AutoRedraw      =   -1  'True
  29.          BackColor       =   &H80000005&
  30.          BorderStyle     =   0  'None
  31.          ForeColor       =   &H80000008&
  32.          Height          =   375
  33.          Left            =   60
  34.          ScaleHeight     =   372
  35.          ScaleWidth      =   2856
  36.          TabIndex        =   5
  37.          Top             =   330
  38.          Width           =   2850
  39.       End
  40.       Begin VB.Label lblSel2 
  41.          AutoSize        =   -1  'True
  42.          Caption         =   "Selected: None"
  43.          Enabled         =   0   'False
  44.          BeginProperty Font 
  45.             Name            =   "MS Sans Serif"
  46.             Size            =   7.8
  47.             Charset         =   0
  48.             Weight          =   700
  49.             Underline       =   0   'False
  50.             Italic          =   0   'False
  51.             Strikethrough   =   0   'False
  52.          EndProperty
  53.          Height          =   195
  54.          Left            =   60
  55.          TabIndex        =   4
  56.          Top             =   720
  57.          Width           =   1335
  58.       End
  59.    End
  60.    Begin MSComDlg.CommonDialog c 
  61.       Left            =   2100
  62.       Top             =   1350
  63.       _ExtentX        =   847
  64.       _ExtentY        =   847
  65.       _Version        =   327681
  66.    End
  67.    Begin VB.Frame Frame1 
  68.       Caption         =   "File To Split"
  69.       Height          =   975
  70.       Left            =   0
  71.       TabIndex        =   0
  72.       Top             =   0
  73.       Width           =   4665
  74.       Begin VB.PictureBox pSpin 
  75.          AutoRedraw      =   -1  'True
  76.          BorderStyle     =   0  'None
  77.          DrawWidth       =   2
  78.          BeginProperty Font 
  79.             Name            =   "Arial"
  80.             Size            =   8.4
  81.             Charset         =   0
  82.             Weight          =   400
  83.             Underline       =   0   'False
  84.             Italic          =   0   'False
  85.             Strikethrough   =   0   'False
  86.          EndProperty
  87.          Height          =   495
  88.          Left            =   90
  89.          ScaleHeight     =   492
  90.          ScaleWidth      =   4548
  91.          TabIndex        =   2
  92.          TabStop         =   0   'False
  93.          Top             =   240
  94.          Width           =   4545
  95.       End
  96.       Begin VB.Label lblSel 
  97.          AutoSize        =   -1  'True
  98.          Caption         =   "Selected: None"
  99.          Enabled         =   0   'False
  100.          BeginProperty Font 
  101.             Name            =   "MS Sans Serif"
  102.             Size            =   7.8
  103.             Charset         =   0
  104.             Weight          =   700
  105.             Underline       =   0   'False
  106.             Italic          =   0   'False
  107.             Strikethrough   =   0   'False
  108.          EndProperty
  109.          Height          =   195
  110.          Left            =   90
  111.          TabIndex        =   1
  112.          Top             =   720
  113.          Width           =   1335
  114.       End
  115.    End
  116. Attribute VB_Name = "frmSplit"
  117. Attribute VB_GlobalNameSpace = False
  118. Attribute VB_Creatable = False
  119. Attribute VB_PredeclaredId = True
  120. Attribute VB_Exposed = False
  121. Option Explicit
  122. Private Const const_lngBtnWid As Long = 1365
  123. Private Const const_lngBtnHei = 375
  124. Private WithEvents Spin1        As ComboPack.Spin
  125. Attribute Spin1.VB_VarHelpID = -1
  126. Private WithEvents cmdGetSplit  As ComboPack.Button
  127. Attribute cmdGetSplit.VB_VarHelpID = -1
  128. Private WithEvents cmdGetRest   As ComboPack.Button
  129. Attribute cmdGetRest.VB_VarHelpID = -1
  130. Private WithEvents cmdSplit     As ComboPack.Button
  131. Attribute cmdSplit.VB_VarHelpID = -1
  132. Private WithEvents cmdRestore   As ComboPack.Button
  133. Attribute cmdRestore.VB_VarHelpID = -1
  134. Dim rReturn As CommReturn
  135. Private Template As CommReturn
  136. Private Sub cmdGetRest_Click()
  137. Template = Save_Load_File(False, c, "File Split Template (*.tpl)|*.tpl", 4 + cdlOFNFileMustExist, "Select Template File", 0)
  138. If Not Template.Successful Then Exit Sub
  139. Dim Info As FileInfo
  140. If CheckFile((Template.FilePath & Template.FileName)) Then
  141. Open Template.FilePath & Template.FileName For Binary As #1
  142. Get #1, , Info
  143. Close #1
  144. rReturn.Extention = ReturnExtention(Info.OrigFileName, False)
  145. rReturn.FilePath = FilePath(Info.OrigFileName)
  146. rReturn.FileName = ReturnExtention(Info.OrigFileName, False, "\")
  147. lblSel2 = "Selected: " & rReturn.FileName
  148. End If
  149. End Sub
  150. Private Sub cmdGetRest_Press()
  151. cmdGetSplit.HasFocus = False
  152. cmdGetRest.HasFocus = True
  153. cmdRestore.HasFocus = False
  154. cmdSplit.HasFocus = False
  155. End Sub
  156. Private Sub cmdRestore_Click()
  157. Dim m_Filename As CommReturn
  158. If Template.FileName = "" Then _
  159.     MsgBox "Error!" & vbCrLf & "You Must select a template File to restore anything." _
  160.     : Exit Sub
  161. m_Filename = Save_Load_File(True, c, "All Files of All Types|*.*", 4 + cdlOFNOverwritePrompt, "Select Export Filename", 0, rReturn.FileName, rReturn.FilePath)
  162. ReassembleFile Template.FilePath & Template.FileName, False, m_Filename.FilePath & m_Filename.FileName
  163. End Sub
  164. Private Sub cmdRestore_Press()
  165. cmdGetSplit.HasFocus = False
  166. cmdGetRest.HasFocus = False
  167. cmdRestore.HasFocus = True
  168. cmdSplit.HasFocus = False
  169. End Sub
  170. Private Sub cmdSplit_Press()
  171. cmdGetSplit.HasFocus = False
  172. cmdGetRest.HasFocus = False
  173. cmdRestore.HasFocus = False
  174. cmdSplit.HasFocus = True
  175. End Sub
  176. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  177. cmdSplit.MouseMove Button, X, Y
  178. End Sub
  179. Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  180. cmdSplit.MouseUp Button, X, Y
  181. End Sub
  182. Private Sub cmdGetSplit_Click()
  183. rReturn = Save_Load_File(False, c, "All Files of All Types|*.*", 4, "Select File To Be Spliced", 0)
  184. lblSel = "Selected: " & rReturn.FileName
  185. End Sub
  186. Private Sub cmdGetSplit_Press()
  187. cmdGetSplit.HasFocus = True
  188. cmdGetRest.HasFocus = False
  189. cmdRestore.HasFocus = False
  190. cmdSplit.HasFocus = False
  191. End Sub
  192. Private Sub cmdSplit_Click()
  193.     Dim m_FileOut As CommReturn
  194.     If lblSel.Caption = "Selected: None" Then
  195.         MsgBox "You must select a file to split before trying to preform this operation", vbInformation, App.Title & " - Information"
  196.     Exit Sub
  197.     End If
  198.     m_FileOut = Save_Load_File(True, c, "File Split Templates (*.tpl)|*.tpl", 4 + cdlOFNOverwritePrompt, "Select Template File", 0)
  199.     If Not m_FileOut.Successful Then Exit Sub
  200.     SplitFile rReturn.FilePath & rReturn.FileName, 1, Caption, Spin1.Value, m_FileOut.FilePath & m_FileOut.FileName
  201. End Sub
  202. Private Sub Form_Load()
  203.     Set cmdGetRest = New ComboPack.Button
  204.     Set cmdGetRest.Parent = picRes
  205.     cmdGetRest.Left = 0
  206.     cmdGetRest.Top = 0
  207.     cmdGetRest.Height = 375
  208.     cmdGetRest.Width = 1365
  209.     cmdGetRest.ForeColor = 0
  210.     cmdGetRest.BackColor = -2147483633
  211.     cmdGetRest.Caption = "Select"
  212.     cmdGetRest.Name = "cmdGetRest"
  213.     cmdGetRest.Enabled = True
  214.     Set cmdRestore = New ComboPack.Button
  215.     Set cmdRestore.Parent = picRes
  216.     cmdRestore.Left = 1415
  217.     cmdRestore.Top = 0
  218.     cmdRestore.Height = 375
  219.     cmdRestore.Width = 1365
  220.     cmdRestore.ForeColor = 0
  221.     cmdRestore.BackColor = -2147483633
  222.     cmdRestore.Caption = "Restore"
  223.     cmdRestore.Name = "cmdRestore"
  224.     cmdRestore.Enabled = True
  225.     Set cmdSplit = New ComboPack.Button
  226.     Set cmdSplit.Parent = pSpin
  227.     cmdSplit.Left = 1410
  228.     cmdSplit.Top = 120
  229.     cmdSplit.Height = 375
  230.     cmdSplit.Width = 1365
  231.     cmdSplit.ForeColor = 0
  232.     cmdSplit.BackColor = -2147483633
  233.     cmdSplit.Name = "cmdSplit"
  234.     cmdSplit.Caption = "Split"
  235.     cmdSplit.Enabled = True
  236.     Set cmdGetSplit = New ComboPack.Button
  237.     Set cmdGetSplit.Parent = pSpin
  238.     cmdGetSplit.BackColor = BackColor
  239.     cmdGetSplit.Left = 0
  240.     cmdGetSplit.Top = 125
  241.     cmdGetSplit.Height = const_lngBtnHei
  242.     cmdGetSplit.Width = const_lngBtnWid
  243.     cmdGetSplit.Caption = "Select"
  244.     cmdGetSplit.Enabled = True
  245.     Set Spin1 = New ComboPack.Spin
  246.     Spin1.Move pSpin.Width - 1400, 125, 1400, 300
  247.     Set Spin1.Parent = pSpin
  248.     Spin1.Enabled = True
  249.     pSpin.Move pSpin.Left, pSpin.Top
  250.     Spin1.MinValue = 4600
  251.     Spin1.MaxValue = 10000000
  252.     Spin1.Value = 4600
  253.     Spin1.ChangeRate = 10000
  254.     cmdSplit.Redraw
  255.     cmdGetSplit.Redraw
  256.     cmdGetSplit.HasFocus = True
  257.     cmdRestore.Redraw
  258.     cmdGetRest.Redraw
  259.     Spin1.Redraw
  260. End Sub
  261. Private Sub Form_Unload(Cancel As Integer)
  262. Unload frmSelFnt
  263. Set frmSelFnt = Nothing
  264. End Sub
  265. Private Sub picRes_KeyDown(KeyCode As Integer, Shift As Integer)
  266. cmdGetRest.KeyDown KeyCode
  267. cmdRestore.KeyDown KeyCode
  268. End Sub
  269. Private Sub picRes_KeyUp(KeyCode As Integer, Shift As Integer)
  270. cmdGetRest.KeyUp KeyCode
  271. cmdRestore.KeyUp KeyCode
  272. End Sub
  273. Private Sub picRes_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  274. cmdGetRest.MouseDown Button, X, Y
  275. cmdRestore.MouseDown Button, X, Y
  276. End Sub
  277. Private Sub picRes_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  278. cmdGetRest.MouseMove Button, X, Y
  279. cmdRestore.MouseMove Button, X, Y
  280. End Sub
  281. Private Sub picRes_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  282. cmdGetRest.MouseUp Button, X, Y
  283. cmdRestore.MouseUp Button, X, Y
  284. End Sub
  285. Private Sub pSpin_KeyDown(KeyCode As Integer, Shift As Integer)
  286. cmdSplit.KeyDown KeyCode
  287. cmdGetSplit.KeyDown KeyCode
  288. End Sub
  289. Private Sub pSpin_KeyUp(KeyCode As Integer, Shift As Integer)
  290. cmdSplit.KeyUp KeyCode
  291. cmdGetSplit.KeyUp KeyCode
  292. End Sub
  293. Private Sub pSpin_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  294. Spin1.MouseDown Button, X, Y
  295. cmdSplit.MouseDown Button, X, Y
  296. cmdGetSplit.MouseDown Button, X, Y
  297. End Sub
  298. Private Sub pSpin_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  299. cmdSplit.MouseMove Button, X, Y
  300. Spin1.MouseMove Button, X, Y
  301. cmdGetSplit.MouseMove Button, X, Y
  302. End Sub
  303. Private Sub pSpin_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  304. cmdSplit.MouseUp Button, X, Y
  305. Spin1.MouseUp Button, X, Y
  306. cmdGetSplit.MouseUp Button, X, Y
  307. End Sub
  308. Private Sub Spin1_MouseDown(Button As Integer, X As Single, Y As Single)
  309. If Spin1.InScope(X + Spin1.Left, Y + Spin1.Top) Then
  310. cmdGetSplit.HasFocus = False
  311. cmdGetRest.HasFocus = False
  312. cmdRestore.HasFocus = False
  313. cmdSplit.HasFocus = False
  314. End If
  315. End Sub
  316.